Revert "Fix #65"
authorjustbur <justin@burkett.cc>
Thu, 24 Sep 2015 14:22:29 +0000 (10:22 -0400)
committerjustbur <justin@burkett.cc>
Thu, 24 Sep 2015 14:22:29 +0000 (10:22 -0400)
This reverts commit c1873df76dc8d1907405ccb8af8ef7a0da1c63e9.

which-key.el

index 53a2574251f9fd28dc0555e1cba1906280c9d9bb..e4d809815d4ee27505374955809cdb88330f85f4 100644 (file)
@@ -321,8 +321,8 @@ to a non-nil value for the execution of a command. Like this
 Used when `which-key-popup-type' is frame.")
 (defvar which-key--echo-keystrokes-backup nil
   "Internal: Backup the initial value of `echo-keystrokes'.")
-;; (defvar which-key--prefix-help-cmd-backup nil
-;;   "Internal: Backup the value of `prefix-help-command'.")
+(defvar which-key--prefix-help-cmd-backup nil
+  "Internal: Backup the value of `prefix-help-command'.")
 (defvar which-key--pages-plist nil
   "Internal: Holds page objects")
 (defvar which-key--lighter-backup nil
@@ -377,6 +377,7 @@ alongside the actual current key sequence when
       (progn
         (setq which-key--echo-keystrokes-backup echo-keystrokes)
         (unless which-key--is-setup (which-key--setup))
+        (setq which-key--prefix-help-cmd-backup prefix-help-command)
         (when which-key-use-C-h-for-paging
             (setq prefix-help-command #'which-key-show-next-page))
         (when which-key-show-remaining-keys
@@ -386,6 +387,7 @@ alongside the actual current key sequence when
         (add-hook 'focus-in-hook #'which-key--start-timer)
         (which-key--start-timer))
     (setq echo-keystrokes which-key--echo-keystrokes-backup)
+    (setq prefix-help-command which-key--prefix-help-cmd-backup)
     (when which-key-show-remaining-keys
       (remove-hook 'pre-command-hook #'which-key--lighter-restore))
     (remove-hook 'pre-command-hook #'which-key--hide-popup)
@@ -1315,7 +1317,7 @@ Will force an update if called before `which-key--update'."
       (progn
         (which-key--hide-popup-ignore-command)
         (which-key--stop-timer)
-        (describe-prefix-bindings)
+        (funcall which-key--prefix-help-cmd-backup)
         (which-key--start-timer))
     (let* ((next-event-if-showing
             ;; forces event into current key sequence